Night Owl 6/Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso/018a/amac41.zip/FILE26.QM

Text File | 1991-08-26 | 48KB | 1,081 lines

*                              (FILE26).QM
*                        Written by Tom Hogshead
*             With Macro Contributions By Richard Blackburn
*                                8/25/91
* ^(w_)    Scroll UP   cursor bar stays fixed                          |chg
* ^(z_)    Scroll DOWN cursor bar stays fixed                          |chg
*
* @(w)     Scroll UP   two windows in sync (by Richard Blackburn)      |chg
* @(z)     Scroll DOWN two windows in sync (by Richard Blackburn)      |chg
*
* @(F9)    Execute DOS command without full path name                  |chg
*
* @(1)     LOAD file from sorted list
* @(4)     LOAD file from "PickList", wild cards OK
* @(5)     LOAD file whose name is at the cursor
*
* @(6)     re-LOAD current file from disk copy
*
* @(3)     DELETE file from sorted list
* @(2)     READ macfile & LOAD it's txtfile from sorted list
* @(F7)    READ macfile & LOAD it's txtfile from txtfile list
* @(F8)    READ macfile from macfile list, txtfile is not loaded
* @(8)     READ macfile of txtfile that is loaded
*
* @(F1)    SAVE file with name "Mos_Day_Hour_Min.Ext"
* @(F2)    SAVE file with name "CurrentFileName.Mos_Day"
* @(F3)    SAVE Read-Only files
*
* @(F4)    EXECUTE Dos command from List
* @(F5)    EXECUTE Dos command from List/ with CurrentFileName
*
* @(F6)    Makes a DIR list of filenames in conventional "8.3" format,
*          NO SPACES, with date and time, like this:
*              FILE25.QM       64795   6-23-91   4:12a
*          (See RINGxx.QM for this macro)
*
* ^(F1__)  Position cursor in column at top of paragraph (R. Blackburn)
* ^(F2__)  Position cursor in column at top of paragraph
* ^(F3__)  Position cursor in column at bottom of paragraph
*
* #(F3_)   Spell Check WITH       backup, qconfig.dat backups ON or OFF
* #(F4_)   Spell Check WITHOUT    backup, qconfig.dat backups ON or OFF
*
* #(F5_)   SAVE  file  WITHOUT    backup, qconfig.dat backups ON
* #(F6_)   SAVE  file  WITHOUT    backup, qconfig.dat backups ON or OFF
*
* #(F7_)   DELETE CurrentFileName backup
* #(F8_)   EDIT   CurrentFileName backup
*
* @(PgUp)  Page Up   by paragraphs, modified "Page Up"
* @(PgDn)  Page Down by paragraphs, modified "Page Dn"
*
* @(o)     Alternate ChangeFileName, current name in prompt box for edit
* @(h)     Select Index item with cursor line, then <enter>.
* @(q)     QUIT all files in "Ring"
*
* (Index)  How to locate macro or item below from Index using @h
* (Description)
* (Startup)
* (Macros)
* (Other) Macros
* (REQUIRED) PROGRAM FILES
* (Version) history
*
*--- eoi


* (Index) Use;
*
* To locate a macro or item in this file, press @h, place the cursor
* line on the desired item in the Index above, and press <enter>.
* See BOOKxx.QM for more details.

* (Description):

* (FILE26).QM  QEdit macros allow  the user  to select files  from a list
* to: either load  a file, read a  macfile, delete a  file, read a macfile
* of loaded txtfile,  save a read-only  file, or save  files with the name
* either  09141025.EXT or  file NAME.914.  File sorting  is done  using DX
* Directory Extender, not included with these files.  Spell  check  macros
* with ShareSpell. Cursor position and scroll macros.

* File sorting is done using DX Directory Extender, v2.11. If the newer
* version 2.60 is used and it is NOT registered, the DX heading will
* show in the file selection window of @1 to @5 and the initial cursor
* line will not be positioned on the first files in the selection list.
* The file selection can be still be made by moving the cursor line to
* the desired file and pressing <enter>. Alternatively, you can either
* register DX or change the macros. I suggest registration. DX is the
* most powerful DOS file and directory manager available.

* For (other) macros, see ALLMACRO.INF

* These macros require "QEdit and QMAC v2.1, February, 1990" or later.

* (Startup): See also FILE.DOC for requirements.
*
* To BEGIN, just type "START FILE" <Enter>. All pertinent files will be
* loaded in the "Ring" for viewing, and FILE26.MAC is read.
* Alternatively, type "START FILE 0" <Enter> and the disk copies of all
* files in the "Ring" will be loaded ready for editing, saving time.

* (REQUIRED) PROGRAM FILES
*
* You──MUST──have the exectable program files in AMAC-PRG.ZIP to run
* some of these macros. AMAC-PRG.ZIP can be found on the following BBS's:
*
*                                 SemWare
*                                 Exec-PC
*
* It can not be found on CompuServe since many of the programs are
* Copyrighted. All program files are ShareWare, and inclusion in
* AMAC-PRG.ZIP is not prohibited in their documentation.
*
* I thank the authors for these excellent programs.

*------------------(Macros):-------------------
*
* In response to a request by Stephan Donelian, Richard Blackburn of
* SemWare wrote ^1, which prompted me to modify it slightly to ^2.
*
*   ╒══>Quoting STEPHAN from Date: 03-19-91 (23:10)
*   │
*   │I would like to be able to go to the beginning line
*   │of the paragraph and at the *same* column as the
*   │current column. Any ideas?
*   ╘══════════════════════════════════════════════════
*
* ------------------------------------------------------------------
* ^(F1__)  Position cursor in column at top of paragraph (R. Blackburn)
* ------------------------------------------------------------------
*
^F1 macrobegin
            MarkCharacter   * save our place
            PrevPara        * goto start of paragraph
            MarkCharacter   * make it a block
            GotoBlockEnd    * go back to our place
            MarkLine        * and convert to line block
                            * this is because
            GotoBlockBeg    * block begin on a line block is
                            * just the top of the block
                            * at whatever block you are in
            UnMarkBlock     * un mark the block
*
* 11 bytes Thu  03-21-1991  19:23:29

* Here's an alternate version. I was not aware that the block begin on
* a line block is just the top of the block, but now knowing that
* Richard Blackburn's ^1 can be shortened one byte. Except for screen
* position, both do the same thing. Richard had the neat idea that got
* me thinking!

*
* ------------------------------------------------------------------
*^(F2__)  Position cursor in column at top of paragraph
* ------------------------------------------------------------------
*
^F2 Macrobegin
          MarkLine          * save our place
          PrevPara          * goto start of paragraph
          MarkLine          * make it a block
          PrevPosition      * go back to where we started
          GotoBlockBeg      * block begin on a line block is
                            * just the top of the block
                            * at whatever block you are in
          UnMarkBlock       * un mark the block
*
* 10 bytes Thu  03-21-1991  19:23:40

*
* ------------------------------------------------------------------
*^(F3__)  Position cursor in column at bottom of paragraph
* ------------------------------------------------------------------
*
^F3 Macrobegin
          MarkLine          * save our place
          EndPara           * goto end of paragraph
          MarkLine          * make it a block
          PrevPosition      * go back to where we started
          GotoBlockEnd      * block end on a line block is
                            * just the bottom of the block
                            * at whatever block you are in
          UnMarkBlock       * un mark the block
*
* 10 bytes Sun  03-24-1991  22:51:35

*
* ---------------------------------------------------------------------
* ^(F4__) Put colon in front of rem line for faster batch file operation
* ---------------------------------------------------------------------
*
* "Rem" lines in batch files make batch files run slower. Lines which
* are labels (colon as first character) do not. This macro simply puts
* a colon in column 1 for each line containing "rem ". Each rem line
* for my system takes about 0.2 seconds with disk cache, and 0.5 seconds
* per line with no disk cache. I found one batch file with 30 plus
* rem lines - 6 to 15 seconds less running time by labelling rem lines!
*
* NOTE:  At least a space and one character of text must follow "rem"
* to be labelled, eg the following would not be labeled:
*       rem
*       echo remember
* The following would be labeled:
*       rem  this is a test
*       echo harem holiday!
*              
*
^F4     MacroBegin                      *
        Begfile InsertLine              * Insert blank line in case
                                        * rem in col/line 1/1
        Editfile "c:\!" Return          * Load temp file
        KillFile Quit                   * To kill/quit it
        EditFile Return                 * Load empty temp file and
        SaveFile                        * save it for append later
        Quit                            * Quit it for now
 START:                                 *
        Unmarkblock                     *
        Find "rem " Return "I " Return  * Find "rem "
        Jfalse END:                     * No rem lines, end macro
        BegLine                         *ELSE line has rem, go to bol
        Dropanchor Wordright Dropanchor * Mark space up to "rem"
        Shiftright                      * Shift line rt one space
        Begline                         * Bak to bol
        Find ":" Return "L" Return      * See if line has colon at beg
        Jtrue NEXT:                     *
        Cursorright ":"                 *ELSE line has no colon, add it!
 NEXT:                                  *
        Shiftleft                       * Shift line back lft one space
        Markline                        *
        WriteBlock Return "A"           * Append line to c:\!
        Endline Cursordown              * Move off rem and chk for last
        Jfalse END:                     *                          line
        Cursorup                        *ELSE Line is not last, cur up
        Jump START:                     * Loop again
 END:                                   *
        Begfile                         * Begin of batch file
        DelLine                         * Delete top blank line
        Editfile Return                 * Load c:\!, look at rem lines
        DelLine KillFile                * with added colon, kill file
        UnMarkBlock                     * Un mark batch file
*
* 82 bytes Mon  03-25-1991  16:49:26

*
* ----------------------------------------------------------------------
* ^(F6__) Directory sizes sorted by size
* ----------------------------------------------------------------------
*
* This macro must ONLY be run as autoexecute macro with dsiz.bat.
* See dsiz.qm for macro, and dsiz.bat for other instructions.
*
* Here's the output of dsiz.bat on my E: drive . . .
*
* Volume [E:Mininscrb_1] created: 91-Apr-02 19:15:24;
*
* Directory of [e:\up\]                         1,443,775 bytes in 263 files
* Directory of [e:\com\]                          840,087 bytes in 111 files
* Directory of [e:\disk\]                         671,114 bytes in 9 files
*        .                                                    .
*        .                                                    .
*        .                                                    .
* Directory of [e:\new-ware\]                       1,562 bytes in 4 files
* Directory of [e:\bat\legal\]                        735 bytes in 1 file
*   5,891,643 bytes in 969 files.     7,157,760 bytes allocated (18% slack).

*
*┌──────────────────────────────────────────────────────────────────┐
*│@(1) Selects file to LOAD from sorted list of files in directory  │
*└──────────────────────────────────────────────────────────────────┘
*
@1 Macrobegin
        altwordset                      * For all file names
        EditFile "file.srt" return      * Load sort list
        pause                           * Select sort type
        copy                            * Copy line to scrap
        quit                            * Quit file.srt
        DOS "file-DX "                  * Make/sort file list
        paste return return             *
        EditFile "c:!" return           * Load sorted file list
        cursordown insertline           *
        cursordown                      * Get to first file name line
        pause                           * Pause to select file
        begline wordright               * Put cursor on file name
        markword copy                   * Mark/copy file name
        killfile quit                   * Kill/quit c:!
        EditFile paste return           * Load file
        defaultwordset                  * Reset default
*
* 68 bytes Sun  09-09-1990  14:38:25

*
*┌─────────────────────────────────────────────────────────────────────┐
*│@(2) LOAD txtfile/READ macfile from sorted list of files in directory│
*└─────────────────────────────────────────────────────────────────────┘
*
@2 Macrobegin
        altwordset                      * For all file names
        DOS "file-DX mac d-"            * Sort macfiles by date
        return return                   *
        EditFile "c:!" return           * Load sorted file list
        cursordown insertline           *
        cursordown                      * Get to first file name line
        pause                           * Pause to select
        begline                         * Re-position cursor if moved
        find "." return return          * Select it and get to dot
        CursorRight delrtword CursorLeft* Delete extension
        markword copy                   * Mark/copy file name - no ext
        killfile quit                   * Kill/quit c:!
        EditFile paste  "qm" return     * Load txtfile
        defaultwordset                  * Reset default
        macroread paste "mac" return    * Read macfile
*
* 78 bytes Sun  09-09-1990  14:38:29

*
*┌──────────────────────────────────────────────────────────────────┐
*│@(3) Selects file to DELETE from sorted list of files in directory│
*└──────────────────────────────────────────────────────────────────┘
*
* Be careful to select ONLY the file you want deleted.
*
@3 Macrobegin
        altwordset                      * For all file names
        EditFile "file.srt" return      * Load sort list
        pause                           * Pause to select sort
        markline copy paste             * Paste selected line
        begline markword                * Mark file ext
        quit                            * Quit file.srt
        DOS "file-DX "                  * Make/sort file list
        paste return return             *
        EditFile "c:!" return           * Load sorted file list
        cursordown insertline           *
        cursordown                      * Get to first file name line
        pause                           * Pause to select file
        begline wordright               * Put cursor on file name
        markword copy                   * Select it
        insertline                      * Insert line in c:!
        paste                           * Paste file name
        copy                            * Copy file name to scrap
        DOS "del " paste return return  * Delete select file
        killfile quit                   * Kill/quit c:!
        defaultwordset                  * Reset default
*
* 84 bytes Sun  09-09-1990  14:38:34

*
*┌─────────────────────────────┐
*│@(4) Load Files From PickList│
*└─────────────────────────────┘
*
* To run, just press Alt and 4 at the same time. At the prompt "File=",
* enter a [file name(s)] and [file sort option] to make a PickList
* using the following syntax:
*
*         [file name(s)]  [file sort option]  <enter>
*
* where [file sort option] is either "esda".
*
* For example, when entering:
*
*         c*.* s- (space must be included between name/sort option!)
*
* a file to load can be selected from a PickList of all files in
* the current directory beginning with the letter "c" sorted by size,
* largest first. Entering file name(s) WITHOUT a sort option, makes
* a PickList sorted by name an then extension.
*
* This macro can sort files in any order. The following information is
* from the file DX.DOC for Directory Extender. Please read this
* document for more information on using the excellent program DX.
*
* Sorting is by name by default. The /SOrt switch without a value sorts
* by name  and then extension in ascending  order. The sorting
* criteria consists of: "N" for name, "E" for extension, "S" for  size,
* "D" for date/time, "A" for attribute. Specifying  a letter by itself
* or with a '+' suffix indicates ascending  order;  specifying a '-'
* suffix indicates descending order.
*
* Examples of the sort options are:
*
*     [filename(s)] ne         => sort by name and extension
*
*     [filename(s)] e-n-       => sort files descending by
*                                 extension first and then by
*                                 descending name
*
*     [filename(s)] snd-       => sort files by ascending size,
*                                 ascending name, and then
*                                 descending date
*
@4 Macrobegin
        unmarkblock altwordset          * For all file names
        begline insertline              * Insert temp line
       "File="                          *
        endline markcolumn              * Start mark
        pause                           * File name?, wild cards OK
        markcolumn copy                 * Mark/copy file name to scrap
        delline                         * Delete temp line
        DOS "PICK " paste               * Make PickList
        return return                   *
        EditFile "c:!" return           * Load list
        cursordown insertline           *
        cursordown                      * Get to first file name line
        pause                           * Pause to select file
        begline wordright               * Put cursor on file name
        markword copy                   * Mark/copy selection to scrap
        killfile quit                   * Kill/quit c:!
        EditFile paste return           * Load file selected
        defaultwordset                  * Reset default
*
* 60 bytes Sun  09-09-1990  14:38:38

*
* ┌──────────────────────────────────────────────┐
* │@(5)  LOADS a file whose name is at the cursor│
* └──────────────────────────────────────────────┘
* This picks up a file name that is sitting at the cursor position in the
* editor, and loads it into another buffer (From SemWare BBS).
*
@5      Macrobegin                      *
        altwordset                      * For all file names
        markword                        * Mark file name
        copy                            * Copy to scrap
        EditFile                        * Load it
        paste return                    *
        defaultwordset                  *
*
* 11 bytes Sun  09-09-1990  14:38:43

*
* ┌───────────────────────────────────────┐
* │@(6) Reloads current file from disk    │
* └───────────────────────────────────────┘
*
@6 Macrobegin
   SplitLine EditFile CurrentFileName Return NewFile "N" Return
*
* 12 bytes Fri  08-10-1990  15:24:13


*
*┌─────────────────────────────────────────────┐
*│@(8) Reads macfile of txtfile that is loaded │
*└─────────────────────────────────────────────┘
*
* From MACRxx.QM
*
@8 Macrobegin
   macroread CurrentFileName backspace backspace "mac" return
*
* 15 bytes Sun  09-09-1990  14:38:55

*
*  ┌─────────────────────────────────────────────────┐
*  │@(F1) Saves file with name "Mos_Day_Hour_Min.Ext"│
*  └─────────────────────────────────────────────────┘
*
* This macro saves the current file with the name as
* "Mos_Day_Hour_Min.Ext".  For example, @F1 saves this file as
* 08191025.QM when date and time are Sun 08-19-1990  10:25:00.
*
* Insert must be ON.
*
* Thanks to Jim Wright for the neat idea how to condense date and time
* with his macro in QE-MEM.ZIP. Like many other macro ideas from
* others, they often seem so simple once we see and understand them
* that we say "why didn't I think of that" - but I didn't !

@F1    Macrobegin
 *************************************** TOGGLE INSERT ON*************
       insertline                      * Insert test line
       "a" CursorLeft "a"              * Insert "aa"
       endline                         * If not at endline-insert is on
 Jtrue FIN:                            * If at endline   -insert is off
       toggleinsert                    * Toggle ON if off
 FIN:                                  *
       delline                         * Delete test line
 *************************************** CONDENSE DATE & TIME *******
       unmarkblock                     * Begin no marked block
       insertline begline              * Insert line
       insertdate inserttime           * Get date & time to condense
       markline
       delltword  delltword            * Delete seconds
       backspace                       * Delete :
       CursorLeft CursorLeft           * Keep minutes
       backspace                       * Delete :
       CursorLeft CursorLeft           * Keep hour
       delltword  delltword            * Delete spaces and year
       backspace                       * Delete -
       CursorLeft CursorLeft           * Keep day
       backspace                       * Delete -
       CursorLeft CursorLeft           * Keep month
       delltword  delltword            * Delete spaces & day name
       endline                         * Go to end of condensed number
       CurrentFileName                 * Get CurrentFileName
       find "." return "LB" return     * Move to begin of extension
       jtrue HASEXT:                   * If dot found, file has extn.
                                       * and go to HASEXT
                                       *ELSE
       Endline "." CursorLeft          * Add ".", file has NO extn.
 HASEXT:                               *
       unmarkblock                     * unmark line
       CursorLeft markcolumn           * Move off dot and mark it
       find ":" return "b" return      * Move to :
       CursorLeft deleteblock          * Del all but .ext of file name
       cut                             * Get number.ext to scrap
       writeblock paste return         * Save number.ext
*
* 74 bytes Wed  02-13-1991  23:16:45

*
* ┌────────────────────────────────────────────────────────┐
* │@(F2) Saves file with name "CurrentFileName.Mos_Day"    │
* └────────────────────────────────────────────────────────┘
*
* Macro saves the current file with name "CurrentFileName.Mos_Day".
* For example, @F2 saves it as FILE26.214 when date and time are
* Thu  02-14-1991  10:25:00. Use this macro Jan-Sept.
*
@F2   Macrobegin
      unmarkblock                     * Begin no marked block
      insertline begline              * Insert line
      insertdate                      * Get date & time to condense
      delltword  delltword            * Delete spaces and year
      backspace                       * Delete -
      CursorLeft CursorLeft           * Keep day
      backspace                       * Delete -
      CursorLeft                      * Keep last digit of month,
      backspace                       * Delete first digit of month
      backspace                       * Delete -
      delltword  delltword            * Delete spaces & day name
      begline                         *
      CurrentFileName                 * Get CurrentFileName
      delltword                       * Delete extension
      cut                             * Get file name.num to scrap
      writeblock paste return         * Save file name.num
*
* 26 bytes Wed  10-03-1990  19:24:02

* * Macro saves the current file with name "CurrentFileName.Mos_Day".
* * For example, @F2 saves it as FILE26.119 when date and time are
* * Sun  10-19-1990  10:25:00. Use this macro Oct-Dec.
* *
* @F2   Macrobegin
*       unmarkblock                     * Begin no marked block
*       insertline begline              * Insert line
*       insertdate                      * Get date & time to condense
*       delltword  delltword            * Delete spaces and year
*       backspace                       * Delete -
*       CursorLeft CursorLeft           * Keep day
*       backspace                       * Delete -
*       backspace                       * Delete last digit of month
*       CursorLeft                      * Keep first digit of month,
*       delltword  delltword            * Delete spaces & day name
*       begline                         *
*       CurrentFileName                 * Get CurrentFileName
*       delltword                       * Delete extension
*       cut                             * Get file name.num to scrap
*       writeblock paste return         * Save file name.num
* *
* * 25 bytes Fri  10-19-1990  12:53:19

*
* ┌──────────────────────────────────────────────┐
* │@(F3) Saves Read-Only files                   │
* └──────────────────────────────────────────────┘
*
* This macro will save the currently loaded file if the file attribute
* on the disk copy is set to Read-Only. QEdit currently will not save
* files loaded as Read-Only.
*
* This macro is written to use either Dos ATTRIB, Gavin's ALTER, or
* Norton's FA. To change from using Dos ATTRIB change the respective
* lines in the macro and reconvert with QMAC.
*
* One word of caution: any file on the disk in the current directory
* with same prefix as the loaded file will have it's read attribute
* reset to read OFF regardless of the extension. Gavin's ALTER is the
* fastest way to reset attributes but it also resets ALL the attributes,
* including the archive bit, of ALL files in the directory with the same
* prefix.
*
* To save a file loaded as Read-Only just press @F3:

@F3     Macrobegin
        unmarkblock                     * Unmark blocks
        insertline                      * Insert blank line on top
        markcolumn                      *
        CurrentFileName markcolumn      * Get CurrentFileName on line
        storescrbuff "1" return         * Store currentfilname to buf/1
        find "." return "LB" return     * Find dot back in block
  jtrue IFEXT:                          * If dot found go to IFEXT:
        endline ".*"                    * Add ".*" if name has NO ext
  jump FULLEXT:                         * Go to FULLEXT
  IFEXT:                                * If name has extension then..
        CursorRight DelToEol "*"        * Add "*" after dot
  FULLEXT:                              *
        copy                            * Copy "prefix.*" to scrap
        delline                         * Delline
        changefilename "$" return       * Change CurrentFileName to $
     dos "ATTRIB -R "                   * Clear Read Only attribute...
        paste return return             *    w/ Dos    ATTRIB
*    dos "ALTER "                       *
*       paste "/RE" return return       *    w/ Gavin  ALTER (Fastest)
*    dos "FA "                          *
*       paste "/R-" return return       *    w/ Norton FA
        insertline                      * Insert blank line in $
        unmarkblock                     * Unmark all blocks
        getscrbuff "1" return           * Get origfilename on line
        copy                            * Copy to scrap
        delline                         * Delline
        changefilename paste return     * Change $ to origfilename
        return                          * Gives OK to overlay origfile
        savefile                        * Save origfile
*
* 80 bytes Wed  02-13-1991  16:14:00

*
*┌──────────────────────────────────────┐
*│ @(F4) Execute Dos Commands From List │
*└──────────────────────────────────────┘
* To run, just press @F4 and move cursor line to the desired command
* to execute. Then press <enter> to execute command and return to file
* you editing. Modify DOS.LIST as you need.
*
* Run Syntax: [command]  <enter>

@F4  Macrobegin
        unmarkblock                     *
        EditFile "DOS.LST" return       * Load command list
        pause                           * Select command
        copy                            * Get command to scrap
        quit                            * Quit command list
        DOS paste return                * Execute Dos command
*
* 27 bytes Mon  02-11-1991  11:11:56

*
*┌──────────────────────────────────────────────────────────┐
*│ @(F5) Execute Dos Commands From List With CurrentFileName│
*└──────────────────────────────────────────────────────────┘
*
* To run, just press @F5 and move cursor line to the desired command
* to execute. Then press <enter> to execute command. Press <enter> again
* to return to file you were editing. Dos executes the command as if it
* were run at the command line followed by the CurrentFileName, then
* <enter>. Modify the DOS.LIST as you need.

* I recall getting this macro from the SemWare BBS but do not recall
* the author. If anyone knows, please let me know so I can give proper
* credit. It's quite a useful and simple macro.
*
* Run Syntax: [command] CurrentFileName <enter>
*
@F5 Macrobegin
        unmarkblock                     *
        EditFile "DOS.LST" return       * Load command list
        pause                           * Select command
        copy                            * Get command to scrap
        quit                            * Quit command list
        DOS paste " " CurrentFileName   * Execute command w/
                                        * CurrentFileName
        return                          *
*
* 30 bytes Sat  09-15-1990  09:24:37

*
* ----------------------------------------------------------------------
*  @(F6)  Makes a DIR List of Filenames in Conventional "8.3" Format,
*                 NO SPACES, with Date and Time, like this:
*                 FILE25.QM       64795   6-23-91   4:12a
* ----------------------------------------------------------------------

*  See RINGxx.QM for this macro.

*
* ┌─────────────────────────────────────────────────────────┐
* │@(F7) READ macfile & LOAD it's txtfile from txtfile list │
* └─────────────────────────────────────────────────────────┘
*
* @F7 enables a file to be selected for editing and it's macfile read
* from a prepared list of txtfiles. The list of txtfiles (-qm.lst)
* included with FILE26 is a list of the latest macros in this series,
* but it can be altered to meet your needs by adding [drive:]\[path\]
* both in front of each file in the list and also in the second line of
* the macro, and adding or deleting any files you choose to/from this
* list. The modified macro can be put in your QCONFIG.DAT file and
* macros can be loaded and read while in any directory. To run, press
* @F7, cursor down to the desired file, and press <enter>. Remember,
* txtfiles must have the extension "QM" and the macfiles must have the
* extension "MAC".
*
@F7 Macrobegin
    EditFile "-qm.lst" return           * Edit txtfile list
    pause                               * Pause to select macro to read
    endline                             * Go to end of file name
    backspace backspace                 * and remove it's extension
    copy quit                           * Copy file name to scrap
    EditFile  paste "qm"  return        * Load selected macro txtfile
    macroread paste "mac" return        * and read it's macfile
*
* 42 bytes Thu  10-18-1990  12:23:41

*
*┌───────────────────────────────────────────────────────────┐
*│ @(F8) READ macfile from macfile list, txtfile not loaded  │
*└───────────────────────────────────────────────────────────┘
*
* @F8 enables a macfile to be selected and read from a prepared list
* of macfiles. The list of macfiles (-mac.lst) included with FILE26 is
* a list of the latest macros in this series, but it can be altered to
* meet your needs by adding [drive:]\[path\] in front of each file in
* the list and also in the second line of the macro, and adding or
* deleting any files you choose to/from this list. The modified macro
* can be put in your QCONFIG.DAT file and macros can be read while in
* any directory. To run, press @F8, cursor down to the desired file,
* and press <enter>. Remember, macfiles must have the extension "MAC".
*
@F8 Macrobegin
    EditFile "-mac.lst" return          * Edit macfile list
    pause                               * Pause to select macro to read
    endline                             * Go to end of macfile name
    backspace backspace backspace       * and remove it's extension
    copy quit                           * Copy macro name to scrap
    macroread paste "mac" return        * Read it's macfile only
*
* 38 bytes Thu  10-18-1990  12:23:50

*
*------------------------------------------------------------
* #(F3_) Spell check current file WITH backup with ShareSpell,
*        QCONFIG.DAT backups ON or OFF, SS makes a backup file.
*------------------------------------------------------------
*
#F3 Macrobegin                              *
    SaveFile                                * Save file
    Dos "SS " CurrentFileName Return Return * Spell Check
    EditFile CurrentFileName Return         * Set EditFile prompt
    NewFile Return                          * Load Spell checked file
*
* 20 bytes Wed  02-13-1991  12:32:29

*
*-----------------------------------------------------------------
* #(F4_) Spell check WITHOUT backup, QCONFIG.DAT backups ON or OFF
*-----------------------------------------------------------------
* This macro does not save a backup file no matter how QCONFIG.DAT is
* configured for backups. If a beep is heard, the file being spell
* checked does not have an extension (no dot was found).
*
#F4 Macrobegin
    Unmarkblock Insertline Begline      * Insert temp line with
    Dropanchor CurrentFileName          * CurrentFileName marked
    Find "." Return "LB" Return         * Find dot backwards in name
    DelToEol ".bak"                     * Add .bak
    Cut Savefile                        * Cut name.bak to scrap/save it
    DOS "SS " CurrentFileName Return Return * ShareSpell spell check
    DOS "DEL " Paste Return Return      * Delete name.bak
    EditFile CurrentFileName Return     * Set EditFile prompt
    NewFile Return                      * Load spell checked file
*
* 56 bytes Sun  02-17-1991  14:02:28

*
*---------------------------------------------------------
* #(F5_) Saves file WITHOUT backup, QCONFIG.DAT backups ON
*---------------------------------------------------------
* Saves files without making a backup file if QCONFIG.DAT
* is configured "Yes" to "Do you want backups saved?".
*
#F5 Macrobegin Togglebakups SaveFile Togglebakups
*
* 7 bytes Tue  02-12-1991  03:39:44

*
*----------------------------------------------------------------
* #(F6_) Saves file WITHOUT backup, QCONFIG.DAT backups ON or OFF
*----------------------------------------------------------------
* This is an alternate version of #F5 which does not save a backup
* file no matter how QCONFIG.DAT is configured for backups. If a
* beep is heard, the file being saved does not have an extension
* (no dot was found).
*
#F6 Macrobegin
    Unmarkblock Insertline Begline      * Insert temp line with
    Dropanchor CurrentFileName          * CurrentFileName marked
    Find "." Return "LB" Return         * Find dot backwards
    DelToEol ".bak"                     * Add .bak
    Cut Savefile                        * Cut name.bak to scrap/save file
    DOS "del " Paste Return Return      * Delete name.bak
*
* 41 bytes Sun  02-17-1991  14:30:32

* Here's an alternate version of #F6 that saves a file without a
* backup no matter how QCONFFIG.DAT is configured. Be careful that no
* line feed or carriage return characters are in the file or the saved
* file will be formatted with these characters removed.
*
* #F6 Macrobegin                        *
*     unmarkblock killfile              * Kill disk copy so writeblock
*                                       * works without prompts
*     writeblock currentfilename return * Save file as block
*
* 8 bytes Thu  02-14-1991  12:28:01

*
*--------------------------------------
* #(F7_) Deletes CurrentFileName Backup
*--------------------------------------
*
#F7 Macrobegin
    Unmarkblock Insertline Begline      * Insert temp line with
    Dropanchor CurrentFileName          * CurrentFileName marked
    Find "." Return "LB" Return         * Find dot backwards
    DelToEol ".bak"                     * Add .bak
    Cut                                 * Cut name.bak to scrap
    DOS "DEL " Paste Return Return      * Delete name.bak
*   DOS "DX " Paste "//DEL"             * Alternate verify delete
*   Return Return                       * with Directory Extender DX
*
* 40 bytes Sun  02-17-1991  14:10:19

*
*----------------------------------
* #(F8_) Edit CurrentFileName Backup
*----------------------------------
*
#F8 Macrobegin
    Unmarkblock Insertline Begline      * Insert temp line with
    Dropanchor CurrentFileName          * CurrentFileName marked
    Find "." Return "LB" Return         * Find dot backwards
    DelToEol ".bak"                     * Add .bak
    Cut                                 * Cut name.bak to scrap
    EditFile Paste Return               * Load name.bak
*
* 31 bytes Sun  02-17-1991  14:10:06

*
*---------------------------------------------------
* @(PgUp), Page Up by paragraphs, modified "Page Up"
*---------------------------------------------------
*
* This macro does a modified page UP with the cursor at the top of the
* screen at the beginning of a paragraph, the first paragraph on the
* screen being the last parapgraph which might not have been fully
* visible on the top of previous screen. This is handy for getting to
* and from paragraphs during editing or viewing.
*
177 MacroBegin PageUp PrevPara BegLine Maketopofscreen
*
* 8 bytes Thu  02-21-1991  14:23:43

*-----------------------------------------------------
* @(PgDn), Page Down by paragraphs, modified "Page Dn"
*----------------------------------------------------
*
* This macro does a modified page DOWN with the cursor at the top of
* the screen on the end of the last paragraph which was not fully
* visible on the previous screen. This is handy for getting to and from
* paragraphs during editing or viewing.
*
176 MacroBegin PageDown EndPara BegLine Maketopofscreen
*
* 8 bytes Thu  02-21-1991  19:11:14

*
*┌───────────────────────────────────────────────────────────────────┐
*│@(h) Finds first word on cursor line marked in document below      │
*└───────────────────────────────────────────────────────────────────┘
*
*        @h macro has 2 steps:
*
*        1. Press @ and h at the same time. An ! shows at the
*        end of the top line. Cursor down to desired line in Index.
*
*        2. Press Enter. The macro first erases the !, and
*        then finds the first word on the cursor line in the document
*        below marked with (...).
*
* See BOOKxx.QM for more details.
*
@h Macrobegin
        unmarkblock                     * Unmark any marked blocks
        begfile endline                 * Go to file begin endline
        "!"                             * Put ! at endline
        begline
        find "!" return return begline  * Highlight !
        pause                           * Pause for Index selection
        wordright markword              * Mark first word on line
        copy                            * Copy word to scrap buffer
        begfile                         * Begfile
        find "!" return return delch    * Find & delete !
        endpara                         * Go to end of Index
        makectrofscreen                 * Cursor line center of window
        find "(" paste ")"
        return "I" return               * Find first marked word in doc
 jfalse NOMARK:
        begline                         * If mark found go to begline
 jump END:
 NOMARK:
        begfile                         * If no mark found go to begfile
 END:
*
* 47 bytes Fri  09-14-1990  14:06:26

*
* ----------------------------------------------------------------------
* @(F9) Execute DOS command for programs not requring full path name
* ----------------------------------------------------------------------
*
@F9  Macrobegin
    Unmarkblock Insertline          * Insert temp line
    CurrentFileName                 * with CurrentFileName
    MarkCharacter                   * Begin mark
    Find "\" Return "B" Return      * Find \ backwards
    CursorRight Cut                 * Cut filename to scrap
    Delline                         * Delete temp line
    Dos Pause " " Paste Return      * Pause for DOS command
*
* 24 bytes Tue  04-23-1991  11:58:35

*
* ----------------------------------------------------------------------
* @(o) Alternate ChangeFileName, currentfilename in prompt box for edit
* ----------------------------------------------------------------------
*
* This macro puts the currentfilename in the prompt box for editing.
*
@o   MacroBegin ChangeFilename DelLine CurrentFilename
*
* 7 bytes Wed  04-03-1991  16:25:01

*
*┌──────────────────────────────────┐
*│@(q) QUITs all Files in Ring      │
*└──────────────────────────────────┘
*
@q      Macrobegin
    LOOP:
        quit
        jump LOOP:
*
* 8 bytes Sat  09-29-1990  00:03:46

*
* -----------------------------------------------
*  ^(w_) Scroll UP, cursor bar stays fixed
* -----------------------------------------------
*
^w lineup
*
* 6 bytes Fri  02-22-1991  17:01:18
* 0 bytes Sat  08-24-1991  16:30:39 (TH ^w)

* -----------------------------------------------
*  ^(z_) Scroll DOWN, cursor bar stays fixed
* -----------------------------------------------
*
^z linedown
*
* 6 bytes Fri  02-22-1991  17:01:18
* 0 bytes Sat  08-24-1991  16:31:11 (TH ^z)

*
* ------------------------------------------------
* @(w) Scroll two windows up in sync
* ------------------------------------------------
@w macrobegin Lineup nextwindow Lineup prevwindow
*
* 10 bytes Fri  02-22-1991  16:52:31
* 8 bytes Sat  08-24-1991  16:26:08 (TH @w, written by Richard BlackBurn)

*
* ------------------------------------------------
* @(z) Scroll two windows down in sync
* ------------------------------------------------
@z macrobegin Linedown nextwindow Linedown prevwindow
*
* 10 bytes Fri  02-22-1991  16:52:39
* 8 bytes Sat  08-24-1991  16:27:03 (TH @z, written by Richard BlackBurn)

* (Version) History:
*
*  1.0 - Initial version named SORT10.ZIP
*  1.1 - changed and shortened Alt-f3 to keep extraneous files
*        from ring
*      - Changed file names from SORTxx.xxx to FILExx.xxx.
*  1.2 - DX Directory Extended not included to save download time.
*  1.2a- Changed other file names in series, this is an update.
*  1.3 - Added @4 to load files from PickList, wild cards OK.
*      - Changed j:$ to c:! in macros and batch file.
*      - Changed .QL and .LST files.
*      - Changed key assignments from alternate_functions
*        to alternate_numbers.
*      - All macros shortened.
*  1.4 - FILE-DX.BAT was not saving "echo .." initialization; corrected.
*      - Modified macros @1-4 so Insert does NOT have to be ON.
*      - Added AltWordSet to @1-4 to get all files.
*      - Removed need to use scratch buffers in @3.
*      - Added @5 to LOAD a file whose name is at the cursor.
*      - Added @6 to execute Dos Commands From List.
*      - Added @7 to EXECUTE DOS commands from List
*        with CurrentFileName.
*      - Added @8 to read macfile of txtfile that is loaded.
*      - Added ^3 to save Read-Only files.
*      - Added ^1 and ^2 to save files with date-time name.
*      - Modified @1-4 and batch files to exclude directories in file
*        list and PickList.
*      - Removed check to quit c:! if already loaded in @1-4.
*      - Changed @4 to use only PICK.BAT.
*  1.5 - Added @9 to select file to edit from RingList
*      - Added @0 to select file to edit from RingList if new files have
*        been loaded since making last RingList
*      - Added @h to FIND items or macros in Index.
*      - Added @q to QUIT all files in ring.
*  1.6 - Added @6 to re-LOAD current file from disk copy.
*      - Modified @9 and @0 to be faster and shorter.
*      - Modified @F2 for correct extension Oct-Dec.
*      - Changed @F1 thru @F5 key assignments.
*  1.7 - Added @F6 to turn "DIR" command into a "8.3" list of filenames,
*        written by  T. Farley of SemWare.
*      - Added @F7 and @F8 to read and load txtfiles and macfiles from
*        a prepared list of active txtfiles and macfiles.
*      - Modified @F2 for Oct-Dec and added alternate version
*        for Jan-Sept.
*      - DOS.LST was inadvertantly left out of versions since 1.4.
*        It is now included.
*  1.8 - Modified @F6 for DOS Ver 3.3, other Dos versions not tested.
*      - Modified documentation and added START.BAT.
*      - Added @z to load all files in "Ring" buffer.
*      - Modified @F2 for Jan-Sep and added alternate version
*        for Oct-Dec.
*  1.9 - Added @F to execute programs requiring filename without full
*        path name.
*      - Corrected @h Index Use instructions.
*      - Shortened @F3 2 bytes.
*  2.0 - Added #F3 & #F4 to spell check with ShareSpell.
*      - Added #F5 & #F6 to save files without making backups.
*      - Added #F7 & #F8 to delete and edit CurrentFileName Backup.
*      - Modified @F1 to handle file names with no extension.
*      - Changed @F3 in "B" to "LB" to search for dot only in block.
*      - From @F4 removed second return to not pause after executing.
*        DOS command.
*      - Modified @F6 to handle multiple runs correctly.
*      - Changed $$$.TMP to C:! in @F6, shortened 16 bytes.
*      - Change @z key to @7.
*  2.1 - Added @PgUp and @PgDn for modified "Page Up and Page Down".
*      - Added @w and @z to scroll two windows up/down in sync.
*      - Added ^w and ^z to scroll up/down so cursor bar stays fixed.
*      - Removed unnecessary lines and shortened #F4,6,7,8.
*  2.2 - Changed DelLine 6 ot 4 in @f6 to eliminate deletion of
*        top 2 files in DIR list.
*  2.3 - Added ^1 and ^2 to position cursor in column at top of
*        paragraph.
*      - Added ^3  to position cursor in column at bottom of paragraph
*      - Added ^4 to put colon in front of "rem" lines for faster
*        batch file operation.
*  2.4 - Added @o  Alternate ChangeFileName, CurrentFileName in prompt
*        box.
*      - Changed control_numeric keys to control_function keys.
*                old     new
*                ^1      ^F1
*                ^2      ^F2
*                ^3      ^F3
*      - Changed @F9 to pause for DOS command
*      - Moved ^4 to COMTxx.
*  2.4a- Corrected description of @F7 and @F8.
*  2.5 - Changed file name in @7, @9 and @0 from ! to NUL - faster.
*      - Made @F6 faster.
*      - Moved @F6 DIR list macro to RINGxx.QM.
*  2.5a- Minor documentation changes.
*        (Included in AMACxx.ZIP v4.0)
*  2.6 - Modified @w, @z, ^w, ans ^z.                                  8/24/91
*      - Changed @f key to @F9.                                        8/24/91
*      - Removed @7, @8 and @9. Same thing now in RINGxx.QM.           8/25/91
*
*
*
*
*